Cine Live 71/Cine Live 71.iso/pc/Data/Interface/e6.k

Text File | 2003-08-08 | 24.3 KB | 1,183 lines

module oRoot1 is cBox
with
    Flags is $00000142;
    release Editor:
        IOWindow is {$000002B4,$000000B2,$000002C4,$00000301,$00000000,$FFFFFF1F,$00000000,$00000000};
        LayoutWindow is {$00000078,$00000095,$0000032F,$00000267,$00000000,$00000000,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;


    Elements is [
        oFond2,
        ob140,
        ob241,
        ob342,
        ob443,
        ob544,
        ob645,
        ob746,
        ob847,
        ob948,
        ob1049,
        ob1150,
        ob1251,
        of152,
        of253,
        of354,
        of455,
        of556,
        of657,
        of758,
        of859,
        of960,
        of1061,
        of1162,
        of1263,
        oInternet27,
        oI128,
        ol229,
        ol230,
        oBouton_Fiche31,
        oBouton_Imprimer32,
        oBouton_Sommaire33,
        oBouton_Photos34,
        oBouton_Vid_o35,
        oFiche_Technique36,
        oTexte_RTF37,
        ovid_o38,
        oglobal39
    ];
    Events is [
        cOffscreenEvent
        with
            Commands is [
                cPixelTool_IfSystemCommand
                with Flags is $00000004;
                    Commands is [
                        cSwitchURLCommand
                        with Flags is $00000004; Target is oFond2; URL is "../Images/s6m.jpg"; end,
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end
                    ];
                end,
                cPixelTool_IfSystemCommand
                with Flags is $00000004; SetMode is IsWinTest;
                    Commands is [
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end
                    ];
                end
            ];
        end,
        cKeyboardEvent
        with Flags is $00000004; Test is IsSpace;
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is ovid_o38; Mode is Toggle; end
            ];
        end,
        cKeyboardEvent
        with Flags is $00000004; Value is "+";
            Commands is [
                cSetVolumeCommand
                with Flags is $00000004; Mode is ExecuteHigher; end
            ];
        end,
        cKeyboardEvent
        with Flags is $00000004; Value is "-";
            Commands is [
                cSetVolumeCommand
                with Flags is $00000004; Mode is ExecuteLower; end
            ];
        end,
        cKeyboardEvent
        with Value is "m";
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oglobal39; Mode is Toggle; Rewind is true; end
            ];
        end
    ];
end;

object oFond2 is cImage
with
    Flags is $00000150;
    Name is "Fond";
    Enabled is false; Cursor is oEmptyCursor;
    AdjustX is AlignToCenter; AdjustY is AlignToTop;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/s6p.jpg";


    Events is [
        cOnscreenEvent
        with Flags is $00000004;
            Commands is [
                cTokenCommand
                with Flags is $00000004; TokenName is "stop"; Mode is ExecuteTargetUpwards; Target is oRoot1; end
            ];
        end
    ];
end;

object ob140 is cImage
with
    Name is "b1";
    Enabled is false; Shown is false;
    X is -21; Y is 169;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Bitmapped is false; Mode is 260;

end;

object ob241 is cImage
with
    Name is "b2";
    Enabled is false; Shown is false;
    X is -21; Y is 197;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob342 is cImage
with
    Name is "b3";
    Enabled is false; Shown is false;
    X is -21; Y is 222;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob443 is cImage
with
    Name is "b4";
    Enabled is false; Shown is false;
    X is -21; Y is 249;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob544 is cImage
with
    Name is "b5";
    Enabled is false; Shown is false;
    X is -21; Y is 275;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob645 is cImage
with
    Name is "b6";
    Enabled is false; Shown is false;
    X is -21; Y is 303;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob746 is cImage
with
    Name is "b7";
    Enabled is false; Shown is false;
    X is -21; Y is 329;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob847 is cImage
with
    Name is "b8";
    Enabled is false; Shown is false;
    X is -21; Y is 357;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob948 is cImage
with
    Name is "b9";
    Enabled is false; Shown is false;
    X is -21; Y is 382;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob1049 is cImage
with
    Name is "b10";
    Enabled is false; Shown is false;
    X is -21; Y is 409;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../../DATA/Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob1150 is cImage
with
    Name is "b11";
    Enabled is false; Shown is false;
    X is -21; Y is 434;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../../DATA/Images/BOUTONV2.psd";
    Mode is 260;

end;

object ob1251 is cImage
with
    Name is "b12";
    Enabled is false; Shown is false;
    X is -21; Y is 463;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../../DATA/Images/BOUTONV2.psd";
    Mode is 260;

end;

object of152 is cBox
with
    Name is "f1";
    Cursor is oFingerCursor;
    X is -1; Y is 183;
    Width is 162; Height is 27;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob140; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob140; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e1.k"; end
            ];
        end
    ];
end;

object of253 is cBox
with
    Name is "f2";
    Cursor is oFingerCursor;
    Y is 210;
    Width is 161; Height is 30;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob241; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob241; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e2.k"; end
            ];
        end
    ];
end;

object of354 is cBox
with
    Flags is $00000150;
    Name is "f3";
    Cursor is oFingerCursor;
    Y is 239;
    Width is 166; Height is 25;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob342; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob342; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e3.k"; end
            ];
        end
    ];
end;

object of455 is cBox
with
    Name is "f4";
    Cursor is oFingerCursor;
    Y is 263;
    Width is 159; Height is 28;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob443; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob443; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e4.k"; end
            ];
        end
    ];
end;

object of556 is cBox
with
    Name is "f5";
    Cursor is oFingerCursor;
    Y is 291;
    Width is 162; Height is 26;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob544; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob544; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e5.k"; end
            ];
        end
    ];
end;

object of657 is cBox
with
    Flags is $00000150;
    Name is "f6";
    Cursor is oFingerCursor;
    Y is 317;
    Width is 161; Height is 26;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob645; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob645; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e6.k"; end
            ];
        end
    ];
end;

object of758 is cBox
with
    Name is "f7";
    Cursor is oFingerCursor;
    X is -1; Y is 343;
    Width is 163; Height is 28;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob746; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob746; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e7.k"; end
            ];
        end
    ];
end;

object of859 is cBox
with
    Name is "f8";
    Cursor is oFingerCursor;
    Y is 371;
    Width is 158; Height is 27;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob847; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob847; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e8.k"; end
            ];
        end
    ];
end;

object of960 is cBox
with
    Flags is $00000150;
    Name is "f9";
    Cursor is oFingerCursor;
    Y is 397;
    Width is 159; Height is 26;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob948; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob948; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e9.k"; end
            ];
        end
    ];
end;

object of1061 is cBox
with
    Name is "f10";
    Cursor is oFingerCursor;
    X is 1; Y is 424;
    Width is 160; Height is 29;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is ob1049; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is ob1049; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e10.k"; end
            ];
        end
    ];
end;

object of1162 is cBox
with
    Flags is $00000150;
    Name is "f11";
    Cursor is oFingerCursor;
    X is 1; Y is 452;
    Width is 162; Height is 28;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob1150; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob1150; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e11.k"; end
            ];
        end
    ];
end;

object of1263 is cBox
with
    Flags is $00000150;
    Name is "f12";
    Cursor is oFingerCursor;
    X is 1; Y is 479;
    Width is 160; Height is 27;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob1251; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is ob1251; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "e12.k"; end
            ];
        end
    ];
end;

object oInternet27 is cBox
with
    Flags is $00000150;
    Name is "Internet";
    Cursor is oEarthCursor;
    X is 259; Y is 539;
    Width is 154; Height is 20;


    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cLaunchCommand
                with Flags is $00000004; URL is "http://www.marsdistribution.com"; URLOption is GetSiteURL; Mode is ExecuteBrowser; end
            ];
        end
    ];
end;

object oI128 is cBox
with
    Flags is $00000150;
    Name is "I1";
    Cursor is oFingerCursor;
    X is 259; Y is 499;
    Width is 73; Height is 19;


    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cIfCookieCommand
                with Flags is $00000004; CookieName is "zique"; Value is "oui";
                    Commands is [
                        cTokenCommand
                        with Flags is $00000004; TokenName is "run"; Mode is ExecuteTargetUpwards; Target is oRoot1; end
                    ];
                end,
                cBrowseCommand
                with Flags is $00000004; URL is "f26.k"; end
            ];
        end
    ];
end;

object ol229 is cBox
with
    Name is "l2";
    Cursor is oFingerCursor;
    X is 226; Y is 520;
    Width is 82; Height is 17;


    Events is [
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cIfCookieCommand
                with CookieName is "zique"; Value is "oui";
                    Commands is [
                        cTokenCommand
                        with TokenName is "run"; Mode is ExecuteTargetUpwards; Target is oRoot1; end
                    ];
                end,
                cBrowseCommand
                with URL is "f2.k"; end
            ];
        end
    ];
end;

object ol230 is cBox
with
    Name is "l2";
    Cursor is oFingerCursor;
    X is 307; Y is 520;
    Width is 88; Height is 17;


    Events is [
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cIfCookieCommand
                with CookieName is "zique"; Value is "oui";
                    Commands is [
                        cTokenCommand
                        with TokenName is "run"; Mode is ExecuteTargetUpwards; Target is oRoot1; end
                    ];
                end,
                cBrowseCommand
                with URL is "f6.k"; end
            ];
        end
    ];
end;

object oBouton_Fiche31 is cImage
with
    Name is "Bouton Fiche";
    Shown is false; Cursor is oFingerCursor;
    X is 167; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/%E9cran%20fiche.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cShowCommand
                with Target is oFiche_Technique36; Mode is Toggle; end,
                cEnableCommand
                with Target is oFiche_Technique36; Mode is Toggle; end
            ];
        end
    ];
end;

object oBouton_Imprimer32 is cImage
with
    Name is "Bouton Imprimer";
    Shown is false; Cursor is oFingerCursor;
    X is 321; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/%E9cran%20imprimer.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cPrintCommand
                with Target is oTexte_RTF37; end
            ];
        end
    ];
end;

object oBouton_Sommaire33 is cImage
with
    Name is "Bouton Sommaire";
    Shown is false; Cursor is oFingerCursor;
    X is 13; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/%E9cran%20somm.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cIfCookieCommand
                with CookieName is "zique"; Value is "oui";
                    Commands is [
                        cTokenCommand
                        with TokenName is "run"; Mode is ExecuteTargetUpwards; Target is oRoot1; end
                    ];
                end,
                cBrowseCommand
                with URL is "sommaire.k"; end
            ];
        end
    ];
end;

object oBouton_Photos34 is cImage
with
    Name is "Bouton Photos";
    Shown is false; Cursor is oFingerCursor;
    X is 475; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/%E9cran%20photo.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "e6s.k"; end
            ];
        end
    ];
end;

object oBouton_Vid_o35 is cImage
with
    Name is "Bouton Vid\$E9o";
    Shown is false; Cursor is oFingerCursor;
    X is 629; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/%E9cran%20vid%E9o.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cRunCommand
                with Target is ovid_o38; Mode is Clear; end,
                cEnableCommand
                with Target is ovid_o38; Mode is Clear; end,
                cShowCommand
                with Target is ovid_o38; Mode is Clear; end,
                cDragCommand
                with Target is ovid_o38; Mode is DragTo; Y is 76; end,
                cGrowCommand
                with Target is ovid_o38; Mode is GrowTo; X is 800; Y is 450; end,
                cShowCommand
                with Target is ovid_o38; end,
                cEnableCommand
                with Target is ovid_o38; end,
                cRunCommand
                with Target is ovid_o38; Rewind is true; end,
                cShowCommand
                with Target is oglobal39; end,
                cEnableCommand
                with Target is oglobal39; end
            ];
        end
    ];
end;

object oFiche_Technique36 is cImage
with
    Flags is $00000154;
    Name is "Fiche Technique";
    Region is {$FFFF000A,$00010000,$01AC0188};
    Enabled is false; Shown is false; Cursor is oFingerCursor;
    X is 132; Y is 41;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/t6.jpg";


    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oFiche_Technique36; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oFiche_Technique36; Mode is Clear; end
            ];
        end
    ];
end;

object oTexte_RTF37 is cRTFText
with
    Flags is $00000400;
    Name is "Texte RTF";
    Enabled is false; Shown is false;
    Y is -160;
    AdjustWidth is GetLayoutWidth; AdjustHeight is GetDataHeight;

    URL is "../Textes/s6.rtf";


end;

object ovid_o38 is cMPEGMovie
with
    Flags is $00000150;
    release Editor:
        IOWindow is {$000000AF,$0000003E,$0000028F,$000001EF,$00000000,$00000000,$00000000,$00000000};
    end;
    Name is "vid\$E9o";
    Shown is false; Cursor is oFingerCursor;
    X is 599; Y is 436;
    Width is 192; Height is 108;

    URL is "../Videos/s6.mpg";
    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                cDragCommand
                with Flags is $00000004; Target is ovid_o38; Mode is DragTo; Y is 76; end,
                cGrowCommand
                with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 800; Y is 450; end,
                cShowCommand
                with Flags is $00000004; Target is ovid_o38; end,
                cEnableCommand
                with Flags is $00000004; Target is ovid_o38; end,
                cRunCommand
                with Flags is $00000004; Target is ovid_o38; Rewind is true; end,
                cShowCommand
                with Flags is $00000004; Target is oglobal39; end,
                cEnableCommand
                with Flags is $00000004; Target is oglobal39; end
            ];
        end,
        cFinishedEvent
        with Flags is $00000004;
            Commands is [
                cPixelTool_IfSystemCommand
                with Flags is $00000004;
                    Commands is [
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cShowCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end
                    ];
                end,
                cPixelTool_IfSystemCommand
                with Flags is $00000004; SetMode is IsWinTest;
                    Commands is [
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cShowCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end
                    ];
                end
            ];
        end
    ];
end;

object oglobal39 is cBox
with
    Flags is $00000150;
    Name is "global";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;

    Kind is DrawOpaque;
    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cPixelTool_IfSystemCommand
                with Flags is $00000004;
                    Commands is [
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; Rewind is true; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cShowCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end
                    ];
                end,
                cPixelTool_IfSystemCommand
                with Flags is $00000004; SetMode is IsWinTest;
                    Commands is [
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; Rewind is true; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is Clear; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                        cDragCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is DragTo; X is 599; Y is 436; end,
                        cGrowCommand
                        with Flags is $00000004; Target is ovid_o38; Mode is GrowTo; X is 192; Y is 108; end,
                        cShowCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cRunCommand
                        with Flags is $00000004; Target is ovid_o38; Rewind is true; end,
                        cEnableCommand
                        with Flags is $00000004; Target is ovid_o38; end,
                        cShowCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end,
                        cEnableCommand
                        with Flags is $00000004; Target is oglobal39; Mode is Clear; end
                    ];
                end
            ];
        end
    ];
end;